home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / divers / demo_sin.sha < prev    next >
Text File  |  1994-03-01  |  363b  |  6 lines
  1. 1 REM DEMO SINUS
  2. 5 REM (c) YANN LECHELLE
  3. 10 DIM GR(60):FOR I=1 TO 30:GR(I)=2^INT((COS(I*32)+1)*3+2):NEXT I
  4. 15 CLS:FOR Z=1 TO 16:PRINT CHR$(252);CHR$(253);:NEXT Z:PRINT "FX-850P:GRAPHIC CALCULATOR ?";
  5. 20 FOR I=1 TO 11:A$="":B$="":FOR K=0 TO 4:A$=A$+RIGHT$(HEX$(GR(I+K)),2):B$=B$+RIGHT$(HEX$(GR(I+K+6)),2):NEXT K:DEFCHR$(252)=A$:DEFCHR$(253)=B$:NEXT I:GOTO 20
  6.